home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / biz / misc / bud / install bud < prev    next >
Encoding:
Text File  |  1995-09-06  |  3.3 KB  |  140 lines

  1. ; File: Install Bud
  2. ;
  3. ; Description:
  4. ;       Installer script.  Distributed with Bud, since version 1.10
  5. ;
  6. ; Revision History:
  7. ;       Version 1.00 [Eric Labbe] July 31, 1995.
  8. ;
  9. ; $VER: Install Bud,  V1.00 (31 July 1995)
  10.  
  11. (complete 0)
  12.  
  13. ; Ask where to install Bud
  14. (set @default-dest
  15.         (askdir
  16.                 (prompt "Please select the directory where you would like to install"
  17.                 " Bud. ")
  18.                 (help @askdir-help)
  19.                 (default "Work:")
  20.         )
  21. )
  22.  
  23. ; Ask what icon to install
  24. (set budicon
  25.         (askchoice
  26.                 (prompt "What kind of icon do you want")
  27.                 (choices "Normal" "New Icons" "Magic WB")
  28.                 (help "If you are using Magic WB or New Icons setup, select"
  29.                         " the appropriate icons.  If you still use the old"
  30.                         " amiga icons, select the normal icons."
  31.                         " NOTE: Normal icons and Magic-WB icons may look"
  32.                         " ugly, since I did not tested them.  I am a New Icons"
  33.                         " user, using new icons palette.")
  34.                 (default 0)
  35.         )
  36. )
  37.  
  38. (working "Installing Bud program")
  39.  
  40. ; Normal Icon
  41. (if (= budicon 0)
  42.         (copyfiles (prompt "")
  43.                    (source "Bud/icons/normal/Bud.info")
  44.                    (dest   @default-dest)
  45.                    (infos)
  46.         )
  47. )
  48.  
  49. ; NewIcons Icon
  50. (if (= budicon 1)
  51.         (copyfiles (prompt "")
  52.                    (source "Bud/icons/newicons/Bud.info")
  53.                    (dest   @default-dest)
  54.                    (infos)
  55.         )
  56. )
  57.  
  58. ; Magic WB Icon
  59. (if (= budicon 2)
  60.         (copyfiles (prompt "")
  61.                    (source "Bud/icons/mwb/Bud.info")
  62.                    (dest   @default-dest)
  63.                    (infos)
  64.         )
  65. )
  66.  
  67. (complete 5)
  68.  
  69. (copyfiles
  70.         (prompt "")
  71.         (source "Bud/Bud")
  72.         (dest @default-dest)
  73.         (infos)
  74. )
  75.  
  76. (complete 55)
  77.  
  78. ; Check if a database is already present in the chosen directory
  79. (set indexstring ("%s/budnames.idx" @default-dest))
  80. (set dbdir (tackon @default-dest "ELBUD_001"))
  81.  
  82. (if (not (exists indexstring))
  83.     (
  84.             (copyfiles (source "Bud/budnames.idx")
  85.                    (dest   @default-dest)
  86.                (infos)
  87.             )
  88.             (makedir dbdir (infos))
  89.             (copyfiles (source "Bud/ELBUD_001/bud.dat")
  90.                        (dest   dbdir)
  91.                (infos)
  92.         )
  93.         )
  94. )
  95.  
  96. (complete 90)
  97.  
  98. ; copy documentation files and other files
  99. (copyfiles (prompt "")
  100.            (source "Bud/Bud.doc")
  101.            (dest   @default-dest)
  102.            (infos)
  103. )
  104. (if (= budicon 0)
  105.     (copyfiles (prompt "")
  106.                (source "Bud/icons/normal/Bud.doc.info")
  107.                   (dest   @default-dest)
  108.                   (infos)
  109.     )
  110. )
  111. (if (= budicon 1)
  112.     (copyfiles (prompt "")
  113.            (source "Bud/icons/newicons/Bud.doc.info")
  114.            (dest   @default-dest)
  115.            (infos)
  116.     )
  117. )
  118. (if (= budicon 2)
  119.     (copyfiles (prompt "")
  120.            (source "Bud/icons/mwb/Bud.doc.info")
  121.            (dest   @default-dest)
  122.            (infos)
  123.     )
  124. )
  125. (copyfiles (prompt "")
  126.            (source "Bud/addendum.doc")
  127.            (dest   @default-dest)
  128.            (infos)
  129. )
  130. (copyfiles (prompt "")
  131.            (source "Bud/Problem.txt")
  132.            (dest   @default-dest)
  133.            (infos)
  134. )
  135. (copyfiles (prompt "")
  136.            (source "Bud/Registration.txt")
  137.            (dest   @default-dest)
  138.            (infos)
  139. )
  140.